home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / tuntasys / basmarge / basmarge.bas next >
Encoding:
BASIC Source File  |  1994-09-05  |  1.9 KB  |  36 lines
  1. 10 SCREEN@ 0:CLS
  2. 20 PRINT"　　　　　　　　　ＴＵＮＴＡ　ＡＤＶＥＮＴＵＲＥ　ＳＹＳＴＥＭ"
  3. 30 PRINT"　　　　　　　　　　　　　　　　　　　 の"
  4. 40 PRINT"　　　　　　　　　　　 データ（初期ファイル）を書き込みます。"
  5. 50 PRINT"　　　　　　　　　　　　　　　　　　　まず"
  6. 60 PRINT"　　  　   　　書き込むファイル名を入力してください。(拡張子あり)"
  7. 70 LINE INPUT"：",FLN$
  8. 80 PRINT"          次に*NO?? の??に入る数字のFROM から TOを入力してください｡"
  9. 90 INPUT"From:",FROM
  10. 100 INPUT"to  :",TO2
  11. 110 PRINT"                            開始行番号を入力してください｡"
  12. 120 INPUT":",GYOU
  13. 130 OPEN"A",#1,FLN$
  14. 140 FOR I=FROM TO TO2
  15. 150 NO$=RIGHT$(STR$(I),LEN(STR$(I))-1)
  16. 160 PRINT#1,STR$(GYOU)+" *NO"+NO$:GYOU=GYOU+10
  17. 170 PRINT#1,STR$(GYOU)+" 'GOSUB *CLOSETIFF":GYOU=GYOU+10
  18. 180 PRINT#1,STR$(GYOU)+" '         *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*":GYOU=GYOU+10
  19. 190 PRINT#1,STR$(GYOU)+" MOJI$(0)="+CHR$(34)+CHR$(34):GYOU=GYOU+10
  20. 200 PRINT#1,STR$(GYOU)+" MOJI$(1)="+CHR$(34)+CHR$(34):GYOU=GYOU+10
  21. 210 PRINT#1,STR$(GYOU)+" MOJI$(2)="+CHR$(34)+CHR$(34):GYOU=GYOU+10
  22. 220 PRINT#1,STR$(GYOU)+" MOJI$(3)="+CHR$(34)+CHR$(34):GYOU=GYOU+10
  23. 230 PRINT#1,STR$(GYOU)+" MOJI$(4)="+CHR$(34)+CHR$(34):GYOU=GYOU+10
  24. 240 PRINT#1,STR$(GYOU)+" Q$(0)="+CHR$(34)+CHR$(34):GYOU=GYOU+10
  25. 250 PRINT#1,STR$(GYOU)+" Q$(1)="+CHR$(34)+CHR$(34):GYOU=GYOU+10
  26. 260 PRINT#1,STR$(GYOU)+" Q$(2)="+CHR$(34)+CHR$(34):GYOU=GYOU+10
  27. 270 PRINT#1,STR$(GYOU)+" 'TIFF$="+CHR$(34)+".TIF"+CHR$(34)+":GOSUB *OPENTIFF":GYOU=GYOU+10
  28. 280 PRINT#1,STR$(GYOU)+" GOSUB *DISP":GYOU=GYOU+10
  29. 290 PRINT#1,STR$(GYOU)+" GOSUB *MAINLOOP":GYOU=GYOU+10
  30. 300 PRINT#1,STR$(GYOU)+" 'IF A=0 THEN GOTO *NOここに番号をいれる":GYOU=GYOU+10
  31. 310 PRINT#1,STR$(GYOU)+" 'IF A=1 THEN GOTO *NOここに番号をいれる":GYOU=GYOU+10
  32. 320 PRINT#1,STR$(GYOU)+" 'IF A=2 THEN GOTO *NOここに番号をいれる":GYOU=GYOU+10
  33. 330 PRINT#1,STR$(GYOU)+" GOTO"+STR$(GYOU-40):GYOU=GYOU+10
  34. 340 NEXT
  35. 350 CLOSE#1
  36.